home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 August / Macworld (1999-08).dmg / Shareware World / Comms & Internet / OpenScript 1.7 / MacPerl ƒ / unregistered.script < prev    next >
Encoding:
Text File  |  1999-04-08  |  899 b   |  51 lines  |  [TEXT/R*ch]
  1. <html>
  2. <head>
  3. <title>OpenScript test</title>
  4. </head>
  5. <body>
  6. <h1>MacPerl example:</h1>
  7. <HR>
  8.  
  9. <BR><BR>
  10. First script: Processor
  11. <BR><BR>
  12.  
  13. <AppleScript>
  14. tell application "MacPerl"
  15.     return ¬
  16.         "You are using a " & (Do Script "
  17.         #!perl -w
  18.         use Mac::Gestalt;
  19.  
  20.         my($arch, %archs, $mac); 
  21.  
  22.         $arch= $Gestalt{gestaltSysArchitecture()};
  23.         %archs = (gestaltPowerPC() => 'Motorola PowerPC',gestalt68k()=> 'Motorola 68k');
  24.         $mac= (defined($archs{$arch}) ?
  25.         $archs{$arch}: 'an unknown');
  26.  
  27.         MacPerl::Reply($mac);
  28.     ") & " processor."
  29. end tell
  30. </AppleScript>
  31.  
  32. <BR><BR>
  33. Second script: Year 2000
  34. <BR><BR>
  35.  
  36. <AppleScript>
  37. tell application "MacPerl"
  38.     return ¬
  39.         "Days until the year 2000: " & (Do Script "
  40.           use Time::Local;
  41.           $d1 = timelocal(0,0,0,1,0,100);
  42.           $d2 = ($d1 - time()) / 60 / 60 / 24;
  43.           MacPerl::Reply(int($d2))
  44.           ")
  45. end tell
  46. </AppleScript>
  47.  
  48. <HR>
  49. </body>
  50. </html>
  51.